<!--#include file="#&ip"-->
<%
dim FYCC_(15),FYCC_SZ_(15)
%>

<!--#include file="#cc_config"-->
<%
FYCC_SZ_(1) = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
FYCC_SZ_(2) = Request.ServerVariables("REMOTE_ADDR")
If FYCC_SZ_(1)<>"" and FYCC_(3)=1 then 
response.Redirect "http://www.qq.com/samate/л񹲺͹ʾ:ʹõǴIP,ȥ/"
Response.End
end if
if FYCC_SZ_(1) = "" then
FYCC_SZ_(0) = FYCC_SZ_(2)
else
FYCC_SZ_(0) = FYCC_SZ_(1)
end if

Sub FYCC_X()
Set FYCC_SZ_(5) = Server.CreateObject("Scripting.FileSystemObject") 
FYCC_SZ_(6) = server.mappath(""&FYCC_(10)&"/samate_"&FYCC_(12)&".txt") 
if not FYCC_SZ_(5).fileexists(FYCC_SZ_(6)) then 
FYCC_SZ_(5).createtextfile FYCC_SZ_(6),true,false 
end if
set FYCC_SZ_(9) = FYCC_SZ_(5).OpenTextFile(FYCC_SZ_(6),8) 
FYCC_SZ_(9).Writeline ""&FYCC_SZ_(0)&"" 
Set FYCC_SZ_(9) = Nothing 
Set FYCC_SZ_(5) = Nothing 
session("FYCC_TXT")="FY"
End Sub

Sub FYCC_C()
Set FYCC_SZ_(10) = Server.CreateObject("Scripting.FileSystemObject")
Set FYCC_SZ_(4)=FYCC_SZ_(10).CreateTextFile(Server.MapPath(""&FYCC_(10)&"/samate_"&FYCC_(12)&".txt"),True)
FYCC_SZ_(4).Write "ӭʹҵ湦"
FYCC_SZ_(4).Close
Set FYCC_SZ_(4)=Nothing
Set FYCC_SZ_(10) = Nothing
session("FYCC_TXT")="FY"
End Sub

if FYCC_(7)<>0 then
if FYCC_(8)<>0 then
if minute(now())>-1 and minute(now())<FYCC_(11) then
Call FYCC_C()
end if
Set FYCC_SZ_(5) = Server.CreateObject("Scripting.FileSystemObject") 
FYCC_SZ_(6) = server.mappath(""&FYCC_(10)&"/samate_"&FYCC_(12)&".txt") 
if not FYCC_SZ_(5).fileexists(FYCC_SZ_(6)) then 
FYCC_SZ_(5).createtextfile FYCC_SZ_(6),true,false 
if err.number<>0 then
response.write "Ŀռ䲻֧FSOͬĿռϵ߲鿴Ȩ"
response.end
end if
Call FYCC_C()
end if
if session("FYCC_TXT")<>"FY" and session("FYCC_TXT")<>"" then
FYCC_SZ_(3)=session("FYCC_TXT")
else
FYCC_SZ_(3)=""
end if
Set FYCC_SZ_(4) = FYCC_SZ_(5).OpenTextFile(Server.MapPath(""&FYCC_(10)&"/samate_"&FYCC_(12)&".txt"),1,True)
If Not FYCC_SZ_(4).AtEndOfStream and FYCC_SZ_(3)="" Then 
FYCC_SZ_(3) = FYCC_SZ_(4).ReadAll
session("FYCC_TXT") = FYCC_SZ_(3)
end if
Set FYCC_SZ_(4) = Nothing 
if instr(FYCC_SZ_(3),FYCC_SZ_(0))>0  then
response.Redirect "http://www.qq.com/samate/IP["&FYCC_SZ_(0)&"]ڹȵˢ»ˢƱ,Ѿֹ!/"
if FYCC_(11)<>0 then
response.Redirect "http://www.qq.com/samate/Ҫ,ϵվԱ: QQ:383614315/"
end if
if ubound(split(FYCC_SZ_(3),"||"))-1>FYCC_(9)*2 and FYCC_(9)>0 and FYCC_(3)=0 then
Set FYCC_SZ_(8)=Server.CreateObject("Scripting.FileSystemObject")
Set FYCC_SZ_(7) = FYCC_SZ_(8).CreateTextFile(Server.MapPath("#cc_config"), True)
FYCC_SZ_(7).writeline "<"&chr(37)
FYCC_SZ_(7).writeline "FYCC_(10)="&chr(34)&""&replace(FYCC_(10),"""","""""")&""&chr(34)&""
FYCC_SZ_(7).writeline "FYCC_(11)="&replace(FYCC_(11),"""","""""")&""
FYCC_SZ_(7).writeline "FYCC_(12)="&replace(FYCC_(12),"""","""""")&""
FYCC_SZ_(7).writeline "FYCC_(5)="&chr(34)&""&replace(FYCC_(5),"""","""""")&""&chr(34)&""
FYCC_SZ_(7).writeline "FYCC_(7)="&replace(FYCC_(7),"""","""""")&""
FYCC_SZ_(7).writeline "FYCC_(8)="&replace(FYCC_(8),"""","""""")&""
FYCC_SZ_(7).writeline "FYCC_(6)="&replace(FYCC_(6),"""","""""")&""
FYCC_SZ_(7).writeline "FYCC_(4)="&replace(FYCC_(4),"""","""""")&""
FYCC_SZ_(7).writeline "FYCC_(9)="&replace(FYCC_(9),"""","""""")&""
FYCC_SZ_(7).writeline "FYCC_(3)=1"
FYCC_SZ_(7).writeline chr(37)&">"
Set FYCC_SZ_(7)=Nothing
Set FYCC_SZ_(8)=nothing
end if
response.end
end if
Set FYCC_SZ_(5) = Nothing 
end if

if Session("FYCC_Session_1")>FYCC_(6) and minute(now())<>Session("FYCC_Session_2") then
Session("FYCC_Session_1")=1
Session("FYCC_Session_2")=minute(now())
elseif Session("FYCC_Session_1")>FYCC_(4)-1 and minute(now())=Session("FYCC_Session_2") then
if FYCC_(8)<>0 and Session("FYCC_Session_1")>FYCC_(4)-1 then
Call FYCC_X()
end if
response.redirect FYCC_(5)
response.end
elseif Session("FYCC_Session_1")>FYCC_(6) and minute(now())=Session("FYCC_Session_2") then
response.Redirect "http://www.qq.com/samate/վˢ¹,1ֻܷ"&FYCC_(6)&"ҳ,һˢ±ҳ/"
Session("FYCC_Session_1")=Session("FYCC_Session_1")+1
response.end
else
if Session("FYCC_Session_1")="" then
Session("FYCC_Session_1")=1
Session("FYCC_Session_2")=minute(now())
else
if minute(now())<>Session("FYCC_Session_2") then
Session("FYCC_Session_1")=1
Session("FYCC_Session_2")=minute(now())
else
Session("FYCC_Session_1")=Session("FYCC_Session_1")+1
end if
end if
End if
end if
%>